home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / network / info-sys / www / tkhtml-2.3 / tkhtml-2 / tkHTML-2.3 / tix / schemes / Fonsets.tcl next >
Encoding:
Text File  |  1995-02-12  |  1.4 KB  |  35 lines
  1. proc tixSetFontset::14Point {} {
  2.  
  3.     global tixOption
  4.  
  5.     set tixOption(font)         -*-helvetica-medium-r-normal-*-14-*-*-*-*-*-*-*
  6.     set tixOption(bold_font)    -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*
  7.     set tixOption(menu_font)    -*-helvetica-bold-o-normal-*-14-*-*-*-*-*-*-*
  8.     set tixOption(italic_font)  -*-helvetica-bold-o-normal-*-14-*-*-*-*-*-*-*
  9.     set tixOption(courier_font) -*-courier-medium-r-*-*-14-*-*-*-*-*-*-*
  10.     set tixOption(border1)      2
  11. }
  12.  
  13. proc tixSetFontset::12Point {} {
  14.     global tixOption
  15.  
  16.     set tixOption(font)         -*-helvetica-medium-r-normal-*-12-*-*-*-*-*-*-*
  17.     set tixOption(bold_font)    -*-helvetica-bold-r-normal-*-12-*-*-*-*-*-*-*
  18.     set tixOption(menu_font)    -*-helvetica-bold-o-normal-*-12-*-*-*-*-*-*-*
  19.     set tixOption(italic_font)  -*-helvetica-bold-o-normal-*-12-*-*-*-*-*-*-*
  20.     set tixOption(courier_font) -*-courier-medium-r-*-*-12-*-*-*-*-*-*-*
  21.     set tixOption(border1)      2
  22. }
  23.  
  24. proc tixSetFontset::TK {} {
  25.  
  26.     global tixOption
  27.  
  28.     set tixOption(font)         -*-helvetica-medium-r-normal-*-14-*-*-*-*-*-*-*
  29.     set tixOption(bold_font)    -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*
  30.     set tixOption(menu_font)    -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*
  31.     set tixOption(italic_font)  -*-helvetica-medium-o-normal-*-14-*-*-*-*-*-*-*
  32.     set tixOption(courier_font) -*-courier-medium-r-*-*-14-*-*-*-*-*-*-*
  33.     set tixOption(border1)      2
  34. }
  35.